home *** CD-ROM | disk | FTP | other *** search
/ The Trig Explorer / The Trig Explorer.iso / mac / Explorer / Ex_Right.dxr / 00056.ls < prev    next >
Encoding:
Text File  |  1998-07-22  |  248 b   |  12 lines
  1. on exitFrame
  2.   global a, b, c
  3.   set a to field "A"
  4.   put a * a into field "A2"
  5.   set b to field "B"
  6.   put b * b into field "B2"
  7.   set the floatPrecision to 2
  8.   set c to sqrt((a * a) + (b * b))
  9.   put c into field "C"
  10.   put c * c into field "C2"
  11. end
  12.